home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / EvenMore / rexx / testport.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2002-03-13  |  446 b   |  31 lines
  1. /* Test port */
  2.  
  3. if ~show('p','rexxsupport.library') then call addlib('rexxsupport.library',0,-30,0)
  4.  
  5. address 'EVENMORE.1'
  6.  
  7. options results
  8. "GETFILENAME"; say 'Filename='RESULT
  9. "GETFILESIZE"; say 'Filesize='RESULT
  10. "GETLINE 2";   say 'Line 2='RESULT
  11. "GETFONT";     say 'Font='RESULT
  12.  
  13. "SETFONT Xen/8"
  14. delay(50)
  15.  
  16. "ICONIFY"
  17. delay(50)
  18.  
  19. "OCCURANCE e"
  20. say 'E occurs 'RESULT' times'
  21.  
  22. "CLOSE"
  23. delay(50)
  24.  
  25. "ICONIFY"
  26. delay(200)
  27.  
  28. "QUIT"
  29.  
  30. exit                
  31.